home *** CD-ROM | disk | FTP | other *** search
/ CD School House 10 / CD School House - Education and Games (10.0) - Wayzata Technology (1995).iso / mac / DOS / NETWORKS / TPAPI / NWQUEUE.PA1 < prev    next >
Text File  |  1992-03-02  |  6KB  |  115 lines
  1. {!R! FONT 15; FTMD 15; EXIT;}
  2.  
  3.  
  4. {***************************************************************************}
  5. {** Program : NWQUEUE                                                     **}
  6. {***************************************************************************}
  7. {** Version : 1.3             ** Started : 11/11/91  ** Ended :   /  /    **}
  8. {***************************************************************************}
  9. {******************************** Description ******************************}
  10. {***************************************************************************}
  11. {** OOP library for Netware API                                           **}
  12. {**                                                                       **}
  13. {** This unit forms the second level object : NWQUEUE                     **}
  14. {** This object is a descandent of          : NETWARE                     **}
  15. {**                                                                       **}
  16. {**                                                                       **}
  17. {**                                                                       **}
  18. {**                                                                       **}
  19. {***************************************************************************}
  20. {******************************** Information ******************************}
  21. {***************************************************************************}
  22. {** Provides Netware Queue Management Services                            **}
  23. {**                                                                       **}
  24. {**                                                                       **}
  25. {**                                                                       **}
  26. {** This code is (c) 1991,1992  Tony Covelli                              **}
  27. {** Portions (c) Novell Inc,                                              **}
  28. {**                                                                       **}
  29. {**                                                                       **}
  30. {***************************************************************************}
  31.  
  32. {$I NETWARE.INC}
  33.  
  34. UNIT NWQUEUE;
  35.  
  36. INTERFACE
  37.  
  38. USES
  39.  
  40.   netware, nwvar;
  41.  
  42. TYPE
  43.  
  44.   pQueueOBJ = ^QueueOBJ;
  45.   QueueOBJ  = object (NetwareOBJ)
  46.  
  47.     CONSTRUCTOR Init;
  48.  
  49.     FUNCTION    AbortServicingQueueJobAndFile (QueueID : OT_BinderyID; JobNumber : WORD;
  50.                                                VAR FileName : FileOfByte) : WORD;
  51.  
  52.     FUNCTION    AttachQueueServerToQueue      (QueueID : OT_BinderyID) : WORD;
  53.  
  54.     FUNCTION    ChangeQueueJobEntry           (QueueID : OT_BinderyID; Job : JobStruct) : WORD;
  55.  
  56.     FUNCTION    ChangeQueueJobPosition        (QueueID : OT_BinderyID; JobNumber : WORD;
  57.                                                NewPosition : BYTE) : WORD;
  58.  
  59.     FUNCTION    ChangeToClientRights          (QueueID : OT_BinderyID; JobNumber : WORD) : WORD;
  60.  
  61.     FUNCTION    CloseFileAndAbortQueueJob     (QueueID : OT_BinderyID; JobNumber : WORD;
  62.                                                VAR FileName : FileOfByte) : WORD;
  63.  
  64.     FUNCTION    CloseFileAndStartQueueJob     (QueueID : OT_BinderyID; JobNumber : WORD;
  65.                                                VAR FileName : FileOfByte) : WORD;
  66.  
  67.     FUNCTION    CreateQueue                   (QueueName : ObjectNameType; QueueType : OT_BinderyType;
  68.                                                DirectoryHandle : BYTE; PathName : QueuePathNameType;
  69.                                                VAR QueueID : OT_BinderyID) : WORD;
  70.  
  71.     FUNCTION    CreateQueueJobAndFile         (QueueID : OT_BinderyID; VAR Job : JobStruct;
  72.                                                VAR FileName : FileOfByte) : WORD;
  73.  
  74.     FUNCTION    DestroyQueue                  (QueueID : OT_BInderyID) : WORD;
  75.  
  76.     FUNCTION    DetachQueueServerFromQueue    (QueueID : OT_BinderyID) : WORD;
  77.  
  78.     FUNCTION    FinishServicingQueueJobAndFile (QueueID : OT_BinderyID; JobNumber : WORD;
  79.                                                 Charge : LONGINT; VAR FileName : FileOfByte) : WORD;
  80.  
  81.     FUNCTION    GetQueueJobList               (QueueID : OT_BinderyID; VAR JobCount : WORD;
  82.                                                VAR JobNumberList : Word250ArrayType;
  83.                                                MaxJobNumbers : WORD) : WORD;
  84.  
  85.     FUNCTION    GetQueueJobsFileSize          (QueueID : OT_BinderyID; JobNumber : WORD;
  86.                                                VAR SizeOfFile : LONGINT) : WORD;
  87.  
  88.     FUNCTION    ReadQueueCurrentStatus        (QueueID : OT_BinderyID; VAR QueueStatus : WORD;
  89.                                                VAR NumberOfJobs, NumberOfServers : WORD;
  90.                                                VAR ServerIDList : Longint25ArrayType;
  91.                                                VAR ServerStationList : Word25ArrayType;
  92.                                                MaxNumberOfServers : WORD) : WORD;
  93.  
  94.     FUNCTION    ReadQueueJobEntry             (QueueID : OT_BinderyID; JobNumber : WORD;
  95.                                                VAR Job : JobStruct) : WORD;
  96.  
  97.     FUNCTION    ReadQueueServerCurrentStatus  (QueueID : OT_BinderyID; ServerID : OT_BinderyID;
  98.                                                ServerStation : WORD; VAR ServerStatusRecord : Byte64ArrayType) : WORD;
  99.  
  100.     FUNCTION    RemoveJobFromQueue            (QueueID : OT_BinderyID; JobNumber : WORD) : WORD;
  101.  
  102.     FUNCTION    RestoreQueueServerRights : WORD;
  103.  
  104.     FUNCTION    ServiceQueueJobAndOpenFile     (QueueID : OT_BinderyID; TargetJobType : WORD;
  105.                                                 VAR Job : JobStruct; VAR FileName : FileOfByte) : WORD;
  106.  
  107.     FUNCTION    SetQueueCurrentStatus         (QueueID : OT_BinderyID; QueueStatus : WORD) : WORD;
  108.  
  109.     FUNCTION    SetQueueServerCurrentStatus   (QueueID : WORD; ServerStatusRecord : Byte64ArrayType) : WORD;
  110.  
  111.     DESTRUCTOR  Done; VIRTUAL;
  112.  
  113.   END;
  114.  
  115.